From: Martin Rudalics <rudalics@gmx.at>
Date: Sun, 8 Jul 2007 08:27:32 +0000 (+0000)
Subject: (disabled-command-function): Fit window to buffer to
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18039
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=34c391c6ff38d4a44a29e86d90e7fbec76be3153;p=emacs.git

(disabled-command-function): Fit window to buffer to
make last line visible.
---

diff --git a/lisp/novice.el b/lisp/novice.el
index f5c3019dfc2..346877dcdda 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -88,8 +88,9 @@ n   to cancel--don't try the command, and it remains disabled.
 SPC to try the command just this once, but leave it disabled.
 !   to try it, and enable all disabled commands for this session only.")
        (save-excursion
-	(set-buffer standard-output)
-	(help-mode)))
+	 (set-buffer standard-output)
+	 (help-mode)))
+     (fit-window-to-buffer (get-buffer-window "*Disabled Command*"))
      (message "Type y, n, ! or SPC (the space bar): ")
      (let ((cursor-in-echo-area t))
        (while (progn (setq char (read-event))